home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / dbms_mag / 9107 / aqua1 next >
Text File  |  1991-05-28  |  396b  |  15 lines
  1. LISTING 1
  2.  
  3. function main
  4. local fields_ := { "LNAME", "ADDRESS" }, ahold_ := {}
  5. use rolodex new
  6. for x = 1 to len(fields_)
  7.     aadd(ahold_, fieldget(fieldpos(fields_[x])) )
  8.     @ x, 1 say padr(fields_[x] + ":", 12) get ahold_[x]
  9. next
  10. read    
  11. //───── now dump array contents to the fields of this record
  12. aeval(ahold_, { | ele, num | fieldput(fieldpos(fields_[num]), ;
  13.               ele) })
  14. return nil
  15.